(x-selection-value): Optimize for ASCII only case.

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 9e37943032bfdfd112bce1f5b0b966a8b8af9b5a..5b1bbd57d640a9d7ec5ecece5977aa68c06cb58a 100644 (file)
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -2198,8 +2198,10 @@ order until succeed.")
                          (error nil))
                   utf8-coding last-coding-system-used)
             (if utf8
-                ;; If it is a locale selection, choose it.
-                (or (get-text-property 0 'foreign-selection utf8)
+                ;; If it is a locale selection, or it contains only
+                ;; ASCII characers, choose it.
+                (if (or (not (get-text-property 0 'foreign-selection utf8))
+                        (= (length utf8) (string-bytes utf8)))
                     (setq text utf8)))
             ;; If not yet decided, try COMPOUND_TEXT.
             (if (not text)